home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / mstmind < prev    next >
Internet Message Format  |  1995-03-31  |  15KB
  1. From: Matthew Aaron Wormley <mwormley@nike.calpoly.edu>
  2. Subject:  v03i002:  mstmind - Mastermind v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 1828949052 (verify with brik -cv)
  8. Submitted-by: Matthew Aaron Wormley <mwormley@nike.calpoly.edu>
  9. Posting-number: Volume 3, Issue 2
  10. Archive-name: mstmind/part01
  11.  
  12.  
  13. BEGIN_DOC mstmind.doc
  14.    Mastermind v1.0 - By Matt Wormley
  15.  
  16.    Here's the classic Logic game, converted for the HP48sx.  It converts very
  17. well to the calculator since it is essentially a one player game, that is the
  18. second player is no more than a 'computer' in his actions, while the other does
  19. all the thinking.  I wrote this about 6 months ago, but have been too lazy to
  20. post it.  I saw another version out and I decided to package up mine and put it
  21. up.  I think you'll like it better.
  22.  
  23.    For those of you who have never played Mastermind before - here's how it
  24. goes.  The calculator will randomly choose 4 colored pegs (red, blue, green,
  25. yellow, purple, or orange) to be the 'solution'.  You will then make successive
  26. guesses until you finally guess the correct solution.  You will have a few
  27. hints though.  After making your guess, the calculator will tell you how many
  28. of the 'pegs' in your guess are the correct color in the correct position by
  29. giving a black peg for each occurance.  It will also tell you how many of the
  30. 'pegs' in your guess are the correct color in the incorrect position.
  31.  
  32.    EX:              Say the solution is ->    R B G P
  33.                     and you guess       ->    O B P G
  34.  
  35.    You would recieve 1 black peg and 2 white peg.  The blue peg would
  36.    represent the Blue (B) peg in your guess since the Blue peg in your guess
  37.    appears in the solution in the same position. The white pegs would
  38.    represent the Green (G) and Purple (P) pegs in your guess since they do
  39.    appear in the solution but NOT in the same position.  The trick is that even
  40.    though you have the 1 black and 2 white pegs as clues, you don't know WHICH
  41.    pegs in your guess that they represent.  This is where your logic will help
  42.    you 'crack the code'.  Through successive guesses, you should be able to
  43.    figure out the solution in less than 10 gueses (I have imperically found
  44.    that it should be possible to solve it in 6 or less if you are good enough)
  45.  
  46. ENTERING A GUESS:
  47.  
  48.    Pretty simple really, after pressing 'PLAY' to start the game, you will
  49.    soon notice that you must turn the calculator sideways to play the game.
  50.    The menu keys enter the color of the peg you wish to place in the position
  51.    that the pointer is pointing to.  You move the pointer with the up and down
  52.    keys (when the calculator is sideways they appear to be left and right) and
  53.    you enter the guess with the "down key" (the right key in real life)  You
  54.    will get 10 guesses and if after that you haven't gotten it... you lose.
  55.  
  56.      That's about the extent of it.  I have spent hours in my boaring GE
  57.    classes playing this game I hope you get as much out of it as I have.
  58. END_DOC
  59.  
  60.  
  61. BEGIN_ASC mstmind.asc
  62. %%HP: T(3)A(R)F(.);
  63. "69A20FF7C02100000040C4F4355440E1B203C000D2000A000000000000401042
  64. 10CF10CF1000004E104210C310C31000008F0040104010CF108F000000001000
  65. 100010CF10CF1000000000000000000000CF0000100010CF10CF0000008F0040
  66. 104010CF108F000000C3000E10C300C30000004D000307594E430E1B207C000E
  67. 2000A0000000000000000C710C7100000CF1007008300CF10CF100000CF10CF1
  68. 00000CF00001000100E0000100010CF10CF0000000000000000000000CF00001
  69. 00010CF10CF0000008F0040104010CF108F000000C3000E10C300C3000000000
  70. 06D000300594853047A20E1B20D10007000070000000043A0E30000E1B20D100
  71. 07000070000000041A2E30000E1B20D100070000700000000A3A222C100E1B20
  72. D1000700007000000006083600000E1B20D100070000700000000E322E30000E
  73. 1B20D10007000070000000040A0E30000E1B209100050000300004060706040E
  74. 1B20510003000030000205020E1B20510003000030000207020B213023100504
  75. 59445C45450E1B20F70008300070000E31414F7F700F7C1E0F7F700F7F700F7C
  76. 081C0F7F700679090F7F7001494F7F7001010F7F710009794F4F400E79090F7F
  77. 700F7C081C0F7F72900040B454953540E1B20DF0007000038000FFFFFDFFFF7F
  78. FFFFDFFFF7FFFFFDFFFF70FFFFFDFFFF7B8F38DFFFF7FFFFFDFFFF70B8E6CD5F
  79. B06BA5ECDCBBF638568DD385605FAABDAEBF6BBA7ED3AAF6BBABEDAFBA701802
  80. 8D028067C028DC380638068D028060FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70
  81. FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70E01005024F414254450E1B20FF300A
  82. 2000B5000000000000000000000000000FF7000000000000000000000FF70000
  83. 00000000000000000FF7000000000000000000000FF700000000000000000000
  84. 0FF7000000000000000000000FF7000000000000000000000FF7000000000000
  85. 000000000FF7000000000000000000000FF7000000000000000000000FF70000
  86. 00000000000000000FF7000000000000000000000FF700000000000000000000
  87. 0FF7000000000000000000000FF7000000000000000000000FF7000000000000
  88. 000000000FF7000000000000000000000FF7000000000000000000000FF70000
  89. 00000000000000000FF7000000000000000000000FF700000000000000000000
  90. 0FF7000000000000000000000FF7000000000000000000000FF7000000000000
  91. 000000000FF7000000000000000000000FF7000000000000000000000FF70000
  92. 00000000000000000FF7000000000000000000000FF700000000000000000000
  93. 0FF7000000000000000000000FF7000000000000000000000FF7000000000000
  94. 00000000000000000000000000000000000000000000000000000000000002E2
  95. E3E3A3A360E3E3C10000E3A2A280A2A2A0A2A222000022A3A2E0E2C323E3E2C1
  96. 0000000000000000000000000000000000000000000000020000000000000000
  97. 000000E300000000000000000000002200000000000000000000000002140030
  98. 05547430D9D20E16321C432D6E2030E657D6D6E2010C6D6E203036F6C6E16326
  99. 34E1D6E203036F6C6C53A2EEDA133920100000000000022076BA1D6E2010C6ED
  100. 2A2D5CE1803A2EEDA176BA1B9691173A2D6E2010C6ED2A276BA1ED2A2D4EB1F8
  101. 8E1803A2EEDA190DA1B9691ED2A2387C184E2030059485D6E2030E657D66C7D1
  102. AE8C1EF53293632B213061100104510D9D20E16324B2A24B2A247A204B2A24B2
  103. A24B2A24B2A2B213078BF19C2A29C2A21C432D6E203016E637D6E2030765756D
  104. 6E205026C61636B6D6E20507786964756D6E204016E63766D6E204076575666D
  105. 6E2030166607D6E2030766607E16329C2A2803A20A132D6E20301666073CE22D
  106. 6E2030765756D6E20301666076C7D1D6E203016E637D6E20301666076C7D1167
  107. E1AFE22D9D20D6E204016E63766D6E20301666079C2A2704D145632D6E204016
  108. E6376697632DCC02D6E204076575666D6E20301666079C2A2704D145632D6E20
  109. 407657566697632DCC02D6E205026C61636B69C2A276BA145632D6E205026C61
  110. 636B697632DCC02B21305DF22C42329C2A2803A20A132D6E20301666079C2A28
  111. 03A20A132D6E20307666073CE22D6E2030166607D6E2030766607167E1F88E1D
  112. 6E203016E637D6E20301666076C7D1D6E2030765756D6E20307666076C7D1167
  113. E1D6E204016E63766D6E20301666076C7D1D6E204076575666D6E20307666076
  114. C7D1908E1F88E1387E1387E1AFE22D9D20D6E204016E63766D6E20301666079C
  115. 2A2704D145632D6E204016E6376697632DCC02D6E204076575666D6E20307666
  116. 079C2A2704D145632D6E20407657566697632DCC02D6E205077869647569C2A2
  117. 76BA145632D6E2050778696475697632DCC02B21305DF22C4232C4232D6E2050
  118. 26C61636B6D6E20507786964756EF53293632B2130114003034840530D9D20E1
  119. 6321C432D6E2030765756D6E2030B65697D6E203036F6C6D6E203007F637E163
  120. 2634E1D6E203036F6C6C53A2EEDA133920100000000000022076BA1B9691D6E2
  121. 03007F637233A2EEDA133920100000000000021076BA1B9691ED2A2387C184E2
  122. 030059485D6E2030B656976C7D1AE8C1D6E2030765756D6E203007F637D6E203
  123. 0B65697704D1EF53293632B2130C21002005D420D9D20E16321C432D6E203036
  124. F6C6D6E203007F637E1632634E1D6E203036F6C6C53A2EEDA133920100000000
  125. 000003076BA1B9691E4A20510001100000000000000ED2A2387C1E4A20510007
  126. 000000000000000E4A2051000B100000000000000614E1AE8C1634E1D6E20303
  127. 6F6C6C53A2EEDA133920100000000000003076BA1B9691D6E203007F637233A2
  128. EEDA133920100000000000031076BA1B9691ED2A2387C184E2030059485743A2
  129. 6C7D1AE8C1EF53293632B21309710040241434B440D9D20E1632F52E1634E147
  130. A20E4A20510000000000000000000E4A20510009300000000000000B213084E2
  131. 040B4549535AE8C1634E147A20E4A20510002100000000000000E4A2051000E0
  132. 00000000000000B213084E205024F4142544AE8C1634E147A20E4A2051000500
  133. 0000000000000E4A20510000000000000000000B213084E2050459445C454AE8
  134. C147A20E4A20510000000000000000000E4A20510000000000000000000B2130
  135. 0F2E193632B2130171004005C4149540D9D20E16323392010000000000000495
  136. D2C147A204B2A24B2A24B2A24B2A2B213078BF19C2A24B2A2803A24B2A21C432
  137. D6E203016E637D6E2030765756D6E203036F6C6D6E2030B65697D6E203007F63
  138. 7D6E20307796E6E16329C2A2803A20A132D6E203036F6C69B1C1233A2EEDA19C
  139. 2A276BA1D6BB1C4232803A2387C145632D6E203016E63797632DCC0284E20402
  140. 41434B49C2A23392010000000000000100A132D6E203036F6C647A204B2A24B2
  141. A24B2A24B2A2B213045632D6E203076575697632DCC02D6E203036F6C6D6E203
  142. 007F63784E202005D43C0324B2A2F17A1D6BB145632D6E2030B6569797632DCC
  143. 02D8732D9D203CE22D6E2030B65697339201000000000000110B9DE1D6E2030B
  144. 65697339201000000000000610CFCE1387E1AFE22D9D20D6E2030765756D6E20
  145. 30B6569733920100000000000001090DA1D6E203036F6C6D6E203007F63784E2
  146. 03034840545632D6E203076575697632DCC02B21305DF223CE22D6E2030B6569
  147. 7339201000000000000520167E1AFE22D9D209C2A2D6E203007F637167E1803A
  148. 2EEDA1D6E203007F63776BA19C2A290DA145632D6E203007F63797632DCC02D6
  149. E203036F6C6D6E203007F63784E202005D4B21305DF223CE22D6E2030B656973
  150. 39201000000000000530167E1AFE22D9D20803A2D6E203007F637167E15C3A2E
  151. EDA1D6E203007F63776BA19C2A276BA145632D6E203007F63797632DCC02D6E2
  152. 03036F6C6D6E203007F63784E202005D4B21305DF22B21305DF22DE032D6E203
  153. 0B65697339201000000000000630167E1D6E2030765756B7FC18DBF1387E1387
  154. E1387E1387E19B632634E1D6E203036F6C6C53A2EEDA13392010000000000000
  155. 3076BA1B9691E4A20510001100000000000000ED2A2387C1E4A2051000700000
  156. 0000000000E4A2051000C100000000000000614E1AE8C1D6E203016E637D6E20
  157. 3076575684E2010454B2A21C432D6E205026C61636B6D6E20507786964756D6E
  158. 2010C6E163233032D6E205026C61636B6D6E2010C6D5CE1D5032D9D20173A245
  159. 632D6E2010C6976324F802D6E203036F6C684E2030055474B21304963233032D
  160. 6E205026C61636B6D6E2050778696475676BA1D6E2010C6D5CE1D5032D9D20C5
  161. 3A245632D6E2010C6976324F802D6E203036F6C684E2030055474B2130496323
  162. CE22D6E205026C61636B6803A2279E1AFE22D9D20D6E203036F6C645632D6E20
  163. 307796E697632DCC0233920100000000000001045632D6E203036F6C697632DC
  164. C02B21305DF22EF532C42329C2A2803A20A132D6E203007F637634E1E4A20510
  165. 004100000000000000D6E203007F637233A2EEDA133920100000000000021076
  166. BA1B9691ED2A2387C184E2030059485D6E203016E637D6E203007F6376C7D16C
  167. 7D1AE8C1C4232634E147A20E4A20510003700000000000000E4A205100060000
  168. 00000000000B21303CE22D6E20307796E6AFE2284E20307594E45BF2284E2040
  169. C4F435545DF22AE8C14B2A2F17A18DBF1EF53293632B213039A6"
  170. END_ASC
  171.  
  172.  
  173. BYTES: #6A93h 3427.5
  174.  
  175. BEGIN_UU mstmind.uue
  176. begin 644 mstmind
  177. M2%!(4#0X+466*O!_#!(````$3$]3100>*S`,`"T`H`````````0!)`'\`?P!=
  178. M``#D`20!/`$\`0``^``$`00!_`'X``````$``0`!_`'\`0````````````#\P
  179. M```!``'\`?P```#X``0!!`'\`?@````\`.`!/``\````U``P<)7D-."Q`L<`3
  180. MX`(`"@````````#`%\`7``#`'P`'@`/`'\`?``#`'\`?``#`#P`0`!``#@`0N
  181. M`!#`'\`/`````````````,`/`!``$,`?P`\``(`/0!!`$,`?@`\``,`#`![`,
  182. M`\`#`````&`-``-025@#="K@L0(=`'````<```!`H^`#`."Q`AT`<```!P``T
  183. M`$"AX@,`X+$"'0!P```'````H*,BP@'@L0(=`'````<```!@@&,``."Q`AT`G
  184. M<```!P```.`CX@,`X+$"'0!P```'````0*#@`P#@L0(9`%````,`0&!P8$#@^
  185. ML0(5`#````,`(%`@X+$"%0`P```#`"!P(+`2`S(!4$"51,545."Q`G\`@`,`4
  186. M!P#@$Q3T]P?PQ^'P]P?P]P?PQX#!\/<'8)>0\/<'$)3T]P<0$/#W%P"0E_3TN
  187. M!."7D/#W!_#'@,'P]R<)``1+15E3!!XKT`\`!P`P"`#__]____?___W_?___P
  188. MW___!___W___M_B#_?]____?__\'BV[<]0NV6L[-NV^#9=@]6`;UJMOJ^[:KD
  189. MYSVJ;[NZWOJK!X$@V"`(=@R"S8-@@V#8(`@&___?___W___]_W___]___P?_O
  190. M_]____?___W_?___W___!PX!4"#T%"1%5."Q`O\#H`(`6P``````````````H
  191. M``#P?P````````````#P?P````````````#P?P````````````#P?P``````(
  192. M``````#P?P````````````#P?P````````````#P?P````````````#P?P``(
  193. M``````````#P?P````````````#P?P````````````#P?P````````````#PY
  194. M?P````````````#P?P````````````#P?P````````````#P?P``````````5
  195. M``#P?P````````````#P?P````````````#P?P````````````#P?P``````(
  196. M``````#P?P````````````#P?P````````````#P?P````````````#P?P``(
  197. M``````````#P?P````````````#P?P````````````#P?P````````````#PY
  198. M?P````````````#P?P````````````#P?P````````````#P?P``````````5
  199. M``#P?P```````````````````````````````````````````````"`N/CXZ6
  200. M.@8^/AP``#XJ*@@J*@HJ*B(``"(Z*@XN/#(^+AP`````````````````````U
  201. M`````````"```````````````#X``````````````"(````````````````@G
  202. M00`#4$5'`YTMX&$CP332Y@(#;G5M;2X0P-;F`@-C;VP>-F)#'FTN,##VQL8U(
  203. M*NZM,9,"`0``````(`)GJ]'F`@%LWJ+2Q1X(H^+>&F>KL6D9<:/2Y@(!;-ZB_
  204. M<K8:WJ+2Y!N/Z($P*NZMD=`:FY;A+2J#QX'D`@-025AM+C#@5M=F?!WJR.%?$
  205. M(SDVLA(#%@$00!70V0(>-D(K*K2B0J<"M*)"*RJTHD(K*BLQ<+@?R:*2+"K!:
  206. M--+F`@-A;G-M+C!P5E?6Y@(%8FQA8VMM+E!PAY9&5];F`@1A;G-F;2Y`<%97L
  207. M9M;F`@-A9G!M+C!P9@;G82/)HH(P*J`QTN8"`V%F<,,NTN8"`V=U96TN,!!F4
  208. M!F=\'6TN,!#F-M?F`@-A9G#&UQ%V'OHNTMD";2Y`$.8V9];F`@-A9G#)HG)`.
  209. M'50VTN8"!&%N<V9Y-M+,(&TN0'!65V;6Y@(#869PR:)R0!U4-M+F`@1G=65F4
  210. M>3;2S"!M+E`@QA8VMI8L*F>K064C;2Y0(,86-K:69R/-#+(2`]4OPB0CR:*"M
  211. M,"J@,=+F`@-A9G#)HH(P*J`QTN8"`V=F<,,NTN8"`V%F<&TN,'!F!A=V'H_HV
  212. MT>8"`V%N<VTN,!!F!F=\'6TN,'!65];F`@-G9G#&UQ%V'FTN0!#F-F?6Y@(#,
  213. M869PQM?1Y@($9W5E9FTN,'!F!F=\'0GH\8@>@^<Q>![Z+M+9`FTN0!#F-F?6,
  214. MY@(#869PR:)R0!U4-M+F`@1A;G-F>3;2S"!M+D!P5E=FUN8"`V=F<,FB<D`=/
  215. M5#;2Y@($9W5E9GDVTLP@;2Y0<(>61E>6+"IGJT%E(VTN4'"'ED97EF<CS0RR)
  216. M$@/5+\(D(TPRTN8"!6)L86-K;2Y0<(>61E?F7R,Y-K(2`Q$$,#"$!#70V0(>5
  217. M-A),(VTN,'!65];F`@-K97EM+C`P]L;6Y@(#<&]S'C9B0QYM+C`P]L;&-2KN4
  218. MK3&3`@$``````"`"9ZNQ:1EM+C``]S8G,RKNK3&3`@$``````"`!9ZNQ:1G>"
  219. MHC)X'$@N,`"5A-7F`@-K97G&UZ&.'&TN,'!65];F`@-P;W-M+C"P5I9W0!W^T
  220. M-9)C(RLQP!(``E!-`ITMX&$CP332Y@(#8V]L;2XP`/<VYV$C-N31Y@(#8V]L-
  221. M7*/BWAHS*1`````````P<+8:FY;AI`(5`!`!````````X"TJ@\?AI`(5`'``-
  222. M````````X*0"%0"P`0```````&!!'NK(84,>;2XP,/;&QC4J[JTQDP(!````[
  223. M`````V>KL6D9;2XP`/<V)S,J[JTQDP(!```````P`6>KL6D9WJ(R>!Q(+C``\
  224. ME81U-"K&UZ&.'/XUDF,C*S&0%P`$0D%#2P2=+>!A(U_B84,>="K@I`(5````J
  225. M````````X*0"%0"0`P```````+`2`T@N0+!4E#6ECAPVY$&G`DXJ4`$`$@``S
  226. M``````!.*E`!``X`````````*S&`Y`(%0D]!4D3JR&%#'G0JX*0"%0!0````)
  227. M`````."D`A4```````````"P$@-(+E!`E43%5*2.''0JX*0"%0``````````&
  228. M`."D`A4```````````"P$@/PXI%C(RLQ$!<`!%!,05D$G2W@82,S*1``````S
  229. M``!`62T<="I`*RJTHD(K*K2BLA(#A_N1+"JTHH(P*K2B$DPC;2XP$.8VU^8"3
  230. M`V=U96TN,##VQM;F`@-K97EM+C``]S;7Y@(#=VEN'C:2+"H(HP(:(VTN,##VI
  231. MQI8;'#*CXMX:R:)RMAIMN\$D(PBC,G@<5#;2Y@(#86YS>3;2S"!(+D`@%#2T@
  232. ME"PJ,RD0````````$``:(VTN,##VQD:G`K2B0BLJM*)"*RHK,4!E(VTN,'!67
  233. M5Y9G(\T,TN8"`V-O;&TN,`#W-H?D`@)03<,P0BLJ'Z?1MAM4-M+F`@-K97EY^
  234. M-M+,((TWTMD"PR[2Y@(#:V5Y,RD0````````$;#9'FTN,+!6EC>3`@$`````+
  235. M`&`!_.PQ>![Z+M+9`FTN,'!65];F`@-K97DS*1`````````0D-`:;2XP,/;&0
  236. MUN8"`W!O<T@N,#"$!$5E(VTN,'!65Y9G(\T,LA(#U2\R[")M+C"P5I8WDP(!\
  237. M``````!0`F'GH>\BG2V0+"IM+C``]S87=AX(H^+>&FTN,`#W-G>V&LFBDM`:&
  238. M5#;2Y@(#<&]S>3;2S"!M+C`P]L;6Y@(#<&]S2"X@`-6T$@/5+S+L(FTN,+!6H
  239. MEC>3`@$``````%`#8>>A[R*=+8`P*FTN,`#W-A=V'L6CXMX:;2XP`/<V=[8:]
  240. MR:)RMAI4-M+F`@-P;W-Y-M+,(&TN,##VQM;F`@-P;W-(+B``U;02`]4OLA(#5
  241. MU2_2#B-M+C"P5I8WDP(!``````!@`V'GT>8"`V=U97O/@;T?@^<Q>!Z#YS%XF
  242. M'KDV8D,>;2XP,/;&QC4J[JTQDP(!`````````V>KL6D93BI0`0`1````````)
  243. M`-ZB,G@<3BI0`0`'`````````$XJ4`$`'``````````6Y*&.'&TN,!#F-M?FS
  244. M`@-G=65(+A!`12LJP332Y@(%8FQA8VMM+E!PAY9&5];F`@%L'C8R`R-M+E`@^
  245. MQA8VMM;F`@%L7>S1!2.=+1`W*E0VTN8"`6QY-D*/(&TN,##VQH;D`@-014<K*
  246. M,4!I(S,PTN8"!6)L86-K;2Y0<(>61E=VMAIM+A#`UL4>73#2V0)<HT)E(VTN`
  247. M$,"69R/T"-+F`@-C;VQ(+C``572T$@.4-C+L(FTN4"#&%C:VAC`J<NFA[R*=7
  248. M+=#F`@-C;VQ4-M+F`@-W:6YY-M+,(#,I$````````!!`92-M+C`P]L:69R/-"
  249. M#+(2`]4OXE\C3#*2+"H(HP(:(VTN,`#W-F=#'DXJ4`$`%`````````!M+C``,
  250. M]S8G,RKNK3&3`@$``````"`!9ZNQ:1G>HC)X'$@N,`"5A-7F`@-A;G-M+C``1
  251. M]S9G?!W&UZ&.'$PR8D,>="K@I`(5`#`'````````X*0"%0!@`````````+`2$
  252. M`\,NTN8"`W=I;OHN@N0"`U=)3K4O@N0"!$Q/4T75+Z*.'+2B\G$:V/OA7R,YK
  253. $-K(2`[(2G
  254. ``
  255. end
  256. END_UU
  257.